home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / misc / RecentScript.lha / RecentScript / Plugins / RecentScript.mm < prev    next >
Encoding:
Text File  |  1997-09-05  |  802 b   |  35 lines
  1. /*****
  2.   $VER: RecentScript MailManager PlugIn 0.2 (30.8.97) ©Eugene Stepanoff
  3.  
  4.  
  5.         RecentScript PlugIn for email reader MailManager.
  6.  
  7.   Starts the MUIRexx application 'RecentScript' within
  8.   MailManager.
  9.  
  10.   Based on MM_UserInfo by Erik Børsting & Kasper B. Graversen
  11.  
  12.  
  13.   Installation:
  14.  
  15.   Add following line to the browse menu
  16.  
  17.   #BROWSEMENU "RecentScript" "rx MUIRexx:RecentScript/Plugins/RecentScript.mm %a %n" ""
  18. *****/
  19.  
  20. address mailmanager
  21. parse arg tagname msgno
  22. mm_readmsg '"'tagname'"' msgno aminet
  23. if rc = 4 then call error
  24. mm_writestem 'T:RS.temp' aminet.text
  25.  
  26. address command 'MUIRexx:MUIRexx "MUIRexx:RecentScript/RecentScript.rexx T:RS.temp" PORT RECENTSCRIPT'
  27. address command 'delete >NIL: T:RS.temp'
  28.  
  29. exit
  30.  
  31.  
  32. error:
  33. mm_requester 'ERROR!' 'Unknown Area or Unknown Message' '*_Ok'
  34. exit
  35.